home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / stopLite.Dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.2 KB  |  49 lines
  1. on exitFrame
  2.   global lastOver
  3.   if the visible of sprite 14 = 0 then
  4.     if rollOver(6) then
  5.       if lastOver <> 6 then
  6.         puppetSound("go")
  7.         updateStage()
  8.         set lastOver to 6
  9.       end if
  10.     else
  11.       if rollOver(7) then
  12.         if lastOver <> 7 then
  13.           puppetSound("stop")
  14.           updateStage()
  15.           set lastOver to 7
  16.         end if
  17.       else
  18.         if rollOver(8) then
  19.           if lastOver <> 8 then
  20.             puppetSound("prepare to stop")
  21.             updateStage()
  22.             set lastOver to 8
  23.           end if
  24.         else
  25.           puppetSound(0)
  26.           set lastOver to 0
  27.         end if
  28.       end if
  29.     end if
  30.     if soundBusy(1) then
  31.       set temp to random(5)
  32.       set the castNum of sprite 4 to the number of cast "talk" & temp
  33.       updateStage()
  34.     else
  35.       puppetSound(0)
  36.       set the castNum of sprite 4 to the number of cast "default head"
  37.       updateStage()
  38.       if random(25) = 1 then
  39.         set the castNum of sprite 4 to the number of cast "eyes closed"
  40.         updateStage()
  41.         wait(5)
  42.         set the castNum of sprite 4 to the number of cast "default head"
  43.         updateStage()
  44.       end if
  45.     end if
  46.   end if
  47.   go(#loop)
  48. end
  49.